home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 8 / FM Towns Free Software Collection 8.iso / fb386 / eiyoukei / mente.bas < prev    next >
BASIC Source File  |  1994-06-01  |  3KB  |  56 lines
  1. 10 '
  2. 20 'SAVE "MENTE.BAS",A
  3. 30 'SHELL "CD","\LIB"
  4. 40 '                          V1.1            91.04.10
  5. 50 '
  6. 60 ON ERROR GOTO *ERR
  7. 65 TOWNS=1
  8. 70 SCREEN@ 0:CONSOLE 0,0,0:COLOR 7,%8,7,4:WIDTH 80,25:W20=20:W12=12:A=0:GOTO 90
  9. 80 CONSOLE 0,0,0:COLOR 7,8,7,4:WIDTH 80,25:W20=20:W12=12:A=0
  10. 90 C4=12:C2=1:CC2=2
  11. 100 CLS:LOCATE W20,W12-6-C2:COLOR 4:PRINT "栄養計算プログラム     V1.1"
  12. 110 LOCATE W20,W12-4-CC2:COLOR 4:PRINT "        システム保守 "
  13. 120 LOCATE W20+30,W12-2-CC2:COLOR 4:PRINT "           "
  14. 130 LOCATE W20,W12+0-CC2:COLOR 7:PRINT "日本食品標準成分表ソート"
  15. 140 LOCATE W20,W12+1-CC2:COLOR 7:PRINT "日本食品標準成分表コンバート TOWNS-->FMR"
  16. 150 LOCATE W20,W12+2-CC2:COLOR 7:PRINT "日本食品標準成分表コンバート FMR  -->TOWNS"
  17. 160 LOCATE W20,W12+3-CC2:COLOR 7:PRINT "日本食品標準成分表コンバート .DAT -->.TXT"
  18. 170 LOCATE W20,W12+4-CC2:COLOR 7:PRINT "日本食品標準成分表コンバート .TXT -->.DAT"
  19. 180 LOCATE W20,W12+5-CC2:COLOR 7:PRINT "調理名食品名一覧表コンバート TOWNS-->FMR"
  20. 190 LOCATE W20,W12+6-CC2:COLOR 7:PRINT "調理名食品名一覧表コンバート FMR  -->TOWNS"
  21. 200 LOCATE W20,W12+7-CC2:COLOR 7:PRINT "献立名調理名一覧表コンバート TOWNS-->FMR":
  22. 210 LOCATE W20,W12+8-CC2:COLOR 7:PRINT "献立名調理名一覧表コンバート FMR  -->TOWNS":
  23. 220 LOCATE W20,W12+9-CC2:COLOR 7:PRINT "SEIBUNMS.TXTファイルの編集 WINK2の起動"
  24. 230 LOCATE W20,W12+10-CC2:COLOR 7:PRINT "システム保守　２"
  25. 240 LOCATE W20,W12+11-CC2:COLOR 7:PRINT "終了 　"
  26. 250 LOCATE W20,25:COLOR 7:PRINT "↑ ↓ で選択して  リターンを押してください。";
  27. 260 LOCATE W20-4,W12-CC2:COLOR 6:PRINT "★":A=0
  28. 270 A$=INPUT$(1)
  29. 280 IF A$=CHR$(&H1F) THEN OA=A:A=(A+1) MOD C4
  30. 290 IF A$=CHR$(&H1E) THEN OA=A:A=(A+C4-1) MOD C4
  31. 300 IF A$=CHR$(&H1B) THEN CLOSE:CLEAR ,,512,4096:END
  32. 310 IF A$=CHR$(&H0D) THEN 350
  33. 320 LOCATE W20-4,W12+C2*A-CC2:PRINT "★":LOCATE W20-4,W12+C2*OA-CC2:PRINT "  "
  34. 330 GOTO 270
  35. 340 CLEAR ,,512,4096:END
  36. 350 B=A+1
  37. 360 IF B=1 THEN RUN "SSORT.BAS"
  38. 370 IF B=2 THEN RUN "SCONVTR.BAS"
  39. 380 IF B=3 THEN RUN "SCONVRT.BAS"
  40. 390 IF B=4 THEN RUN "SCONVTM.BAS"
  41. 400 IF B=5 THEN RUN "SCONVMT.BAS"
  42. 410 IF B=6 THEN RUN "CCONVTR.BAS"
  43. 420 IF B=7 THEN RUN "CCONVRT.BAS"
  44. 430 IF B=8 THEN RUN "KCONVTR.BAS"
  45. 440 IF B=9 THEN RUN "KCONVRT.BAS"
  46. 450 IF B=10 THEN *WINK2
  47. 455 IF B=11 THEN RUN "MENUFDMP.BAS"
  48. 460 IF B=12 THEN CLOSE:RUN "EIYOUKEI.BAS"
  49. 470 CLOSE:END
  50. 480 *ERR
  51. 490 IF ERL=70 THEN TOWNS=0:FMR=1:RESUME 80 ELSE ON ERROR GOTO 0
  52. 500 *WINK2
  53. 510 IF TOWNS=1 THEN CLS:PRINT "TOWNS では WINK2を自動起動できません 手動で起動してください｡":PRINT "なにかキーを押してください｡":X$=INPUT$(1):RUN 10
  54. 520 CLS:SHELL "COMMAND","/C \WINK2 -TA: A:\LIB\SEIBUNMS.TXT"
  55. 530 RUN 10
  56.